Imports System.Drawing.Drawing2D
Public Class ErrorScreen

    Private Sub ErrorScreen_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        Me.Close()
    End Sub

    Private Sub ErrorScreen_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Me.Close()
    End Sub

    Private Sub ErrorScreen_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        'dim fmt as new StringFormat(   
        e.Graphics.DrawString(Me.Text, Me.Font, Brushes.Red, 0, 0)
    End Sub
End Class